'   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 '       P K - P O S   v 1   -   2 8 / 1 1 / 2 0 2 4 
 
 '   = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = 
 
 
 
 N u m e r o C a s s e t t e   =   1 4 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   B U T T O N S 
 
 F o r   v 1   =   1   T o   1 4 
 
 	 B u t t o n   v 1   L a b e l   " P o s t "   +   v 1 
 
 	 B u t t o n   v 1   C o l o r   H o n e y d e w 
 
 N e x t 
 
 B u t t o n   1 5   L a b e l   D a t a 
 
 B u t t o n   1 5   C o l o r   Y e l l o w 9 
 
 B u t t o n   1 6   L a b e l   O p e n C l o s e L o g 
 
 B u t t o n   1 6   L a b e l   " S t a r t   L o g " 
 
 B u t t o n   1 6   C o l o r   B l u e 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   I N I T 
 
 O p t i o n   S p e e d   9 
 
 L o a d   T h e r e m i n o _ H a l . e x e 
 
 G o s u b   M a i n L o o p 
 
 S t o p 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   C L O S E   A P P L I C A T I O N 
 
 L a b e l   E v e n t S t o p 
 
 	 L o a d   C l o s e A p p s   T h e r e m i n o _ H a l . e x e 
 
 E n d 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   M A I N   L O O P 
 
 L a b e l   M a i n L o o p 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   T e s t   S L O T S 
 
 	 N u m e r i c   N u m e r o C a s s e t t e 
 
 	 N u m e r i c   C a s s e t t a 
 
 	 F o r   C a s s e t t a   =   1   T o   N u m e r o C a s s e t t e 
 
 	 	 I f   S l o t ( C a s s e t t a )   < >   A r r a y 1 ( C a s s e t t a ) 
 
 	 	 	 A r r a y 1 ( C a s s e t t a )   =   S l o t ( C a s s e t t a ) 
 
 	 	 	 I f   S l o t ( C a s s e t t a )   =   0 
 
 	 	 	 	 A d d C a s s e t t a 
 
 	 	 	 E n d I f 
 
 	 	 E n d I f 
 
 	 N e x t 
 
 	 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   P r i n t   T I M E 
 
 	 B u t t o n     D a t a   T e x t     "     "   +   ( N o w ) 
 
 G o t o   M a i n L o o p 
 
 
 
 L a b e l   A d d C a s s e t t a 
 
 	 A r r a y 2 ( C a s s e t t a )   =   A r r a y 2 ( C a s s e t t a )   +   1 
 
 	 B u t t o n   C a s s e t t a   T e x t   " P o s t   1     =   "   +   A r r a y 2 ( C a s s e t t a ) 
 
 R e t u r n 
 
 
 
 '   - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -   L O G 
 
 L a b e l   O p e n C l o s e L o g 
 
 	 V a r i a b l e   N u m e r i c   S L 1 
 
 	 I f   S L 1   =   0 
 
 	 	 S L 1   =   1 
 
 	 	 G o s u b   S t a r t L o g 
 
 	 	 B u t t o n   O p e n C l o s e L o g   L a b e l   " S t o p   L o g " 
 
 	 	 B u t t o n   1 6   C o l o r   R e d 
 
 	 E l s e 
 
 	 	 S L 1   =   0 
 
 	 	 G o s u b   S t o p L o g 
 
 	 	 B u t t o n   O p e n C l o s e L o g   L a b e l   " S t a r t   L o g " 
 
 	 	 B u t t o n   1 6   C o l o r   L i g h t G r e e n 
 
 	 E n d I f 
 
 R e t u r n 
 
 
 
 L a b e l   S t a r t L o g 
 
 	 ' r e s e t s l o t 
 
 	 ' L o a d   T h e r e m i n o _ L o g g e r . e x e 
 
 R e t u r n 
 
 
 
 L a b e l   S t o p L o g 
 
 	 ' L o a d   C l o s e A p p s   T h e r e m i n o _ L o g g e r . e x e 
 
 	 ' r e s e t s l o t 
 
 R e t u r n 
 
 
 
 
 
 ' B O O K M A R K S   
 
 
 
 ' E D I T E D L I N E S   2 0   9   1   1 0   3 0   1 0   3 5   1 0   4 5   1 0   6 3   1 0   4 0   1 0   5 3   7   1 1   9   6   1 0   2 5   1 0   
 
 
 
 ' W A T C H   
 
 ' W A T C H   
 
 ' W A T C H   
 
 ' W A T C H   A r r a y 1 
 
 